0 POKE53280,.:POKE53281,.
5 IFA=1THEN519
10 PRINT"[147][152][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
20 PRINT"}           [158]l o a[160]d s t a r            [152]}";
30 PRINT"}           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]            }";
40 PRINT"}              pRESENTS                [152]}";
50 PRINT"}                                  [160]   }";
60 PRINT"}        l i s t - p a t r o l         [152]}";
70 PRINT"[173]``````````````````````````````````````[189]";
80 PRINT"[176]``````````````````````````````````````[174]";
90 PRINT"}[151]100 rem      [152][160]                  [160]     }";
100 PRINT"[221][151]110 [210][197][205]     [204][201][211][212] [208][193][212][210][207][204]        [152][160]      [221]";
110 PRINT"}[151]120 rem                         [152][160]     }";
120 PRINT"[221][151]130 [210][197][205]  [194][217] [194][213][195][203][160][195][200][201][204][196][210][197][211][211]      [152][160]     [221]";
130 PRINT"}[151]140 rem                              [152][160]}";
140 PRINT"}[151]150 rem    copyright 1987            [152][160]}";
150 PRINT"}[151]160 rem                              [152][160]}";
160 PRINT"}[151]170 print 'subscribe to[160]loadstar now'[152][160]}";
170 PRINT"}[151]175 goto 170                         [152][160]}";
180 PRINT"}                                     [160]}";
190 PRINT"} find [152]: [154]print                         [152]}";
200 PRINT"}                                     [160]}";
210 PRINT"}170 print 'subscribe to loadstar now' [152]}";
220 PRINT"[173]``````````````````````````````````````[189]";
230 PRINT"[176]``````````````````````````````````````[174]";
240 PRINT"[221]                                      [221]";
250 PRINT"``````````````````````````````````````[189]";
260 POKE241,PEEK(241)OR128
270 PRINT"[145]":PRINT"[148][173]";:PRINT"";
281 PRINT "[208]RESS [211][208][193][195][197] [212]O [195]ONTINUE"
290 GETA$
295 IFA$<>" "THEN 290
300 PRINT"[147]"
310 PRINT
320 PRINT
330 PRINT
340 PRINT"           [204][201][211][212] [208][193][212][210][207][204]"
350 PRINT"           [152][163][163][163][163][163][163][163][163][163][163][163]"
360 PRINT
370 PRINT"      1[152]) [154][193][195][212][201][214][193][212][197] [204][201][211][212] [208][193][212][210][207][204]"
380 PRINT
390 PRINT
400 PRINT"      2[152]) [154][209][213][201][212] [194][193][195][203] [212][207] [158][204][207][193][196][211][212][193][210]"
410 PRINT
420 PRINT
430 PRINT"      [197]NTER [211]ELECTION [152](1 [207][210] 2[152])   "
450 GETA$:IFA$=""THEN450
455 IFA$="1"THEN 500
456 IFA$="2"THEN 600
475 GOTO 450
500 :
510 PRINT"[147]"
511 PRINT" [207]NCE [204][201][211][212] [208][193][212][210][207][204] IS ACTIVATED, YOU "
512 PRINT"MUST REBOOT [204][207][193][196][211][212][193][210] TO RETURN TO MENU"
513 PRINT" ** [196][207][160][217][207][213] [215][201][211][200] [212][207] [195][207][206][212][201][206][213][197] ? ([217]/[206]) **"
514 GETA$:IFA$="" THEN 514
515 IFA$="[217]"ORA$="Y"THEN 518
516 IFA$="[206]"ORA$="N"THEN 300
517 GOTO 514
518 A=1:PRINT"[147][204][207][193][196][201][206][199]....":LOAD"LIST PATROL.ML",8,1
519 SYS50000:PRINT"[147][204]IST [208]ATROL IS NOW ACTIVIATED.  [217]OU MAY"
520 PRINT"NOW USE THE FUNCTION KEYS TO CONTROL "
525 PRINT"LIST PATROL.  [193]FTER FUNCTION KEYS HAVE"
527 PRINT"BEEN PRESSED YOU CAN EXCAPE WITH THE    [210][213][206]/[211][212][207][208] [203]EY"
546 END
600 PRINT"[145]     [154][196][207][160][217][207][213][160][215][201][211][200] [212][207] [209][213][201][212]? ([217]/[206])   "
610 GETA$:IFA$=""THEN610
611 IFA$="Y"ORA$="[217]" THEN 675
620 IFA$="N"ORA$="[206]"THENPRINT"[145]";:GOTO 430
650 GOTO 610
675 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
677 IFER<>63 THEN PRINT"[147]":END
680 LOAD"HELLO CONNECT",8,1
999 :